Def: from.SetRead()
	$Prf.str[1] = "  qʤX"
	$Prf.str[2] = "  ]qʤX"
	$Prf.str[3] = "  <]w>"
	$Prf.str[4] = "  <]w>"
	$Prf.str[5] = "  <]w>"
	$Prf.str[6] = "  <]w>"
	$Prf.str[7] = "  <]w>"
	$Prf.str[8] = "  <]w>"
	$Prf.strset[1] = "пJ q 10 ~ 90"
	$Prf.strset[2] = "пJ ]q 10 ~ 90"
	$Prf.strset[3] = "пJ (AQ)"
	$Prf.strset[4] = "пJ (AQ)"
	$Prf.strset[5] = "пJ (AQ)"
	$Prf.strset[6] = "пJ (AQ)"
	$Prf.strset[7] = "пJ (AQ)"
	$Prf.strset[8] = "пJ (AQ)"
	$Prf.argv[1] = 60
	$Prf.argv[2] = 50
	$Prf.argv[3] = 0
	$Prf.argv[4] = 0
	$Prf.argv[5] = 0
	$Prf.argv[6] = 0
	$Prf.argv[7] = 0
	$Prf.argv[8] = 0
	Ret: 8 '^ - `@
End Def

Def: from.Run()
	$Prf.Sizeof = ~from.SetRead()
	~from.FileRead()
	~from.Menu(0)		
	$Number = 0
	Cmp()
		$Control = ~Dos.GetCh()
		Cmp($Control == 13)
			Cmp($Number == 0)
				~from.FileWrite()
				Break
			End
			$Ret = ~Lib.InputBox($Prf.strset[$Number], $Prf.argv[$Number])
			Cmp(~String.IsNumber($Ret))
				$Prf.argv[$Number] = $Ret
			ElCmp()
				$Prf.argv[$Number] = 0
			End
		ElCmp($Control == 72)
			Cmp(--$Number == -1)
				$Number = $Prf.Sizeof
			End
		ElCmp($Control == 80)
			Cmp(++$Number == $Prf.Sizeof + 1)
				$Number = 0
			End
		End
		~from.Menu($Number)
	Loop
	~Dos.Print("Run OK!\x0a")
End Def

Def: from.FileRead()
	Cmp(~File.Exists("set.ini"))
		~File.Open("set.ini", "r")
		$i = 1
		Cmp ()
			Cmp (~File.Eof())
				Break
			ElCmp()
				$Prf.argv[$i++] = ~File.Read()
			End
		Loop
		~File.Close("r")
	End
End Def

Def: from.FileWrite()
	~File.Open("set.ini", "w")
	$i = 1
	Cmp( $i <= $Prf.Sizeof )
		~File.Write($Prf.argv[$i++] "\x0a")
	Loop
	~File.Close("w")
End Def

Def: from.Menu( $line )
	$Prf.str[0] = "  s set.ini -> "
	~Dos.Goto(0, 8)
	~Dos.Print("==========( w]Ѽ )==========\x0a")
	$i = -1
	Cmp( ++$i <= $Prf.Sizeof )
		Cmp( $line == $i)
			~Dos.Color(15, 9)
		End
		~from.Read($Prf.str[$i], $i)
	Loop
	~Dos.Print("====================================\x0a")
	~Dos.Print("\x0aŦνЫV   A٦J]wЫ Enter \x0a\x0a")
End Def

Def: from.Read( $str, $line )
	~Dos.Print(~String.PadRight($str, " ", 30))
	~Dos.Color(7, 0)
	Cmp($line <> 0)
		~Dos.Print(" : ")
		~Dos.Color(10, 0)
		~Dos.Print(~String.PadRight($Prf.argv[$line], " ", 16) "\x0a")
		~Dos.Color(7, 0)
	ElCmp()
		~Dos.Print("\x0a")
	End
End Def


~from.Run()

~Dos.Print("F,S}?}!\x0a\x0a")
~Dos.System("pause")